home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / msdemo.com / MOUSE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  581 b   |  36 lines
  1. unit mouse;
  2.  
  3. interface
  4.  
  5. var
  6.    MousePresent  :  word;
  7.    EventFlag     :  word;
  8.    Xcoord        :  byte;
  9.    Ycoord        :  byte;
  10.    Buttons       :  word;
  11.    MCursorAddr   :  word;
  12.    MouseOn       :  word;
  13.  
  14. procedure MouseRegister(EventMask : word);
  15. procedure MouseUnregister;
  16. procedure HideMouse;
  17. procedure ShowMouse;
  18.  
  19. implementation
  20.  
  21. {$L MOUSE}
  22.  
  23. procedure MouseRegister(EventMask : word);
  24. external {MOUSE};
  25.  
  26. procedure MouseUnregister;
  27. external {MOUSE};
  28.  
  29. procedure HideMouse;
  30. external {MOUSE};
  31.  
  32. procedure ShowMouse;
  33. external {MOUSE};
  34.  
  35. end.
  36.